*** REPLICATION FILE -- MAIN ANALYSIS -- STUDY 2, PERCEPTIONS, CORRECT ASSESSMENT
*** Homola, Rogowski, Sinclair, Torres, Tucker, and Webster
*** "Through the Ideology of the Beholder: How Ideology Shapes Perceptions of Partisan Groups"
*** Political Science Research and Methods

log using logs_stata1.txt

use "HRSTTW_Stereotypes_Study2_MainAnalysis.dta"

set cformat %9.3f

* Table 2: Partisans' Views of Out-Party Members
* and Table B.6: Partisans' Views of Out-Party Members
* and generate margins for Figure 3 (used in script HRSTTW_Stereotypes_Figure3.R)
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
margins, at(ideoS27_std== (-0.5(.25)2.25) WHITE==1 FEMALE==1 AGE_4==4 METRO==1 REGION==3)
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
margins, at(ideoS27_std== (-2.25(.25)0.5) WHITE==1 FEMALE==1 AGE_4==4 METRO==1 REGION==3)
reg new_belief_out extreme_ideo POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.4: Operational Ideology Factor Analysis
factor IABORTS27 IEDUCS27 ITAXESS27 IGAYMS27 IGUNS27 IGLWMGS27 IHEALTS27 IIMMGS27 IMINWGS27 IMDCDS27 IREGUS27 IAFFACTS27 ISOCSCS27

* Table B.7: Partisans' Views of In-Party Members
gen new_belief_out_co=.
replace new_belief_out_co =ATTS6S30 if seq==1 & PID3_MAXN==1
replace new_belief_out_co =ATTS7S30 if seq==2 & PID3_MAXN==1
replace new_belief_out_co =ATTS8S30 if seq==3 & PID3_MAXN==1
replace new_belief_out_co =ATTS9S30 if seq==4 & PID3_MAXN==1
replace new_belief_out_co =ATTS10S30 if seq==5 & PID3_MAXN==1
replace new_belief_out_co =ATTS11S30 if seq==6 & PID3_MAXN==2
replace new_belief_out_co =ATTS12S30 if seq==7 & PID3_MAXN==2
replace new_belief_out_co =ATTS13S30 if seq==8 & PID3_MAXN==2
replace new_belief_out_co =ATTS14S30 if seq==9 & PID3_MAXN==2
replace new_belief_out_co =ATTS15S30 if seq==10 & PID3_MAXN==2
reg new_belief_out_co ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out_co ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out_co extreme_ideo POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.8: Independents' Views of Partisans
gen new_ind_dv=.
replace new_ind_dv= ATTS6S30 if seq==1
replace new_ind_dv=ATTS7S30 if seq==2 
replace new_ind_dv=ATTS8S30 if seq==3 
replace new_ind_dv=ATTS9S30 if seq==4 
replace new_ind_dv=ATTS10S30 if seq==5 
replace new_ind_dv=ATTS11S30 if seq==6 
replace new_ind_dv=ATTS12S30 if seq==7 
replace new_ind_dv=ATTS13S30 if seq==8 
replace new_ind_dv=ATTS14S30 if seq==9 
replace new_ind_dv=ATTS15S30 if seq==10 
reg new_ind_dv ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq<=5 & seq!=. & PID3_MAXN==3, cl(wustlid)
reg new_ind_dv ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq>5 & seq!=. & PID3_MAXN==3, cl(wustlid)

* Table B.9: Partisans' Views of Out-Party Members, Controlling for Strong Partisans
gen extreme=.
replace extreme=1 if PID7_MAXN==1 | PID7_MAXN==7
replace extreme=0 if PID7_MAXN==2 | PID7_MAXN==3 | PID7_MAXN==4 | PID7_MAXN==5 | PID7_MAXN==6
reg new_belief_out ideoS27_std i.extreme POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out ideoS27_std i.extreme POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out extreme_ideo i.extreme POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.10: Partisans' Views of Out-Party Members, Using Symbolic Conservatism
gen SYM_IDEO_EXTREMITY=.
replace SYM_IDEO_EXTREMITY=0 if IDEOL1SP==4
replace SYM_IDEO_EXTREMITY=1 if IDEOL1SP==3 | IDEOL1SP==5
replace SYM_IDEO_EXTREMITY=2 if IDEOL1SP==2 | IDEOL1SP==6
replace SYM_IDEO_EXTREMITY=3 if IDEOL1SP==1 | IDEOL1SP==7
gen IDEOL7SP=IDEOL1SP
recode IDEOL7SP -1=. 8=.
reg new_belief_out c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out SYM_IDEO_EXTREMITY POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.11: Independents' Views of Partisans, Using Symbolic Conservatism
reg new_ind_dv c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq<=5 & seq!=. & PID3_MAXN==3, cl(wustlid)
reg new_ind_dv c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq>5 & seq!=. & PID3_MAXN==3, cl(wustlid)

* Table B.12: Partisans' Views of Out-Party Members, Using Symbolic Conservatism and Operational Conservatism
reg new_belief_out ideoS27_std c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out ideoS27_std c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out extreme_ideo SYM_IDEO_EXTREMITY POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.13: Independents' Views of Partisans, Using Symbolic Conservatism and Operational Conservatism
reg new_ind_dv ideoS27_std c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq<=5 & seq!=. & PID3_MAXN==3, cl(wustlid)
reg new_ind_dv ideoS27_std c.IDEOL7SP POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if seq>5 & seq!=. & PID3_MAXN==3, cl(wustlid)

* Table B.14: Partisans' Views of Out-Party Members, Controlling for Agreement with Statement
gen AGREEATT1=.
replace AGREEATT1 =1 if ATTS1S27==1 | ATTS1S27==2
replace AGREEATT1 =-1 if ATTS1S27==4 | ATTS1S27==5 
replace AGREEATT1 =0 if ATTS1S27==3 | ATTS1S27==6 

gen AGREEATT2=.
replace AGREEATT2 =1 if ATTS2S27==1 | ATTS2S27==2
replace AGREEATT2 =-1 if ATTS2S27==4 | ATTS2S27==5 
replace AGREEATT2 =0 if ATTS2S27==3 | ATTS2S27==6 

gen AGREEATT3=.
replace AGREEATT3 =1 if ATTS3S27==1 | ATTS3S27==2
replace AGREEATT3 =-1 if ATTS3S27==4 | ATTS3S27==5 
replace AGREEATT3 =0 if ATTS3S27==3 | ATTS3S27==6 

gen AGREEATT4=.
replace AGREEATT4 =1 if ATTS4S27==1 | ATTS4S27==2
replace AGREEATT4 =-1 if ATTS4S27==4 | ATTS4S27==5 
replace AGREEATT4 =0 if ATTS4S27==3 | ATTS4S27==6 

gen AGREEATT5=.
replace AGREEATT5 =1 if ATTS5S27==1 | ATTS5S27==2
replace AGREEATT5 =-1 if ATTS5S27==4 | ATTS5S27==5 
replace AGREEATT5 =0 if ATTS5S27==3 | ATTS5S27==6

gen AGREEATT6=.
replace AGREEATT6 =1 if ATTS6S27==1 | ATTS6S27==2
replace AGREEATT6 =-1 if ATTS6S27==4 | ATTS6S27==5 
replace AGREEATT6 =0 if ATTS6S27==3 | ATTS6S27==6  

gen AGREEATT7=.
replace AGREEATT7 =1 if ATTS7S27==1 | ATTS7S27==2
replace AGREEATT7 =-1 if ATTS7S27==4 | ATTS7S27==5 
replace AGREEATT7 =0 if ATTS7S27==3 | ATTS7S27==6 

gen AGREEATT8=.
replace AGREEATT8 =1 if ATTS8S27==1 | ATTS8S27==2
replace AGREEATT8 =-1 if ATTS8S27==4 | ATTS8S27==5 
replace AGREEATT8 =0 if ATTS8S27==3 | ATTS8S27==6 

gen AGREEATT9=.
replace AGREEATT9 =1 if ATTS9S27==1 | ATTS9S27==2
replace AGREEATT9 =-1 if ATTS9S27==4 | ATTS9S27==5 
replace AGREEATT9 =0 if ATTS9S27==3 | ATTS9S27==6 

gen AGREEATT10=.
replace AGREEATT10 =1 if ATTS10S27==1 | ATTS10S27==2
replace AGREEATT10 =-1 if ATTS10S27==4 | ATTS10S27==5 
replace AGREEATT10 =0 if ATTS10S27==3 | ATTS10S27==6 

gen AGREE_WITH=.
replace AGREE_WITH=1 if seq==1 & AGREEATT6==1
replace AGREE_WITH=0 if seq==1 & AGREEATT6==0 | AGREEATT6==-1
replace AGREE_WITH=1 if seq==2 & AGREEATT7==1
replace AGREE_WITH=0 if seq==2 & AGREEATT7==0 | AGREEATT7==-1
replace AGREE_WITH=1 if seq==3 & AGREEATT8==1
replace AGREE_WITH=0 if seq==3 & AGREEATT8==0 | AGREEATT8==-1
replace AGREE_WITH=1 if seq==4 & AGREEATT9==1
replace AGREE_WITH=0 if seq==4 & AGREEATT9==0 | AGREEATT9==-1
replace AGREE_WITH=1 if seq==5 & AGREEATT10==1
replace AGREE_WITH=0 if seq==5 & AGREEATT10==0 | AGREEATT10==-1
replace AGREE_WITH=1 if seq==6 & AGREEATT1==1
replace AGREE_WITH=0 if seq==6 & AGREEATT1==0 | AGREEATT1==-1
replace AGREE_WITH=1 if seq==7 & AGREEATT2==1
replace AGREE_WITH=0 if seq==7 & AGREEATT2==0 | AGREEATT2==-1
replace AGREE_WITH=1 if seq==8 & AGREEATT3==1
replace AGREE_WITH=0 if seq==8 & AGREEATT3==0 | AGREEATT3==-1
replace AGREE_WITH=1 if seq==9 & AGREEATT4==1
replace AGREE_WITH=0 if seq==9 & AGREEATT4==0 | AGREEATT4==-1
replace AGREE_WITH=1 if seq==10 & AGREEATT5==1
replace AGREE_WITH=0 if seq==10 & AGREEATT5==0 | AGREEATT5==-1

reg new_belief_out ideoS27_std i.AGREE_WITH POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out ideoS27_std i.AGREE_WITH POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out extreme_ideo i.AGREE_WITH POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.15: Partisans' Views of Out-Party Members (Including Leaners)
gen extreme7=.
replace extreme7=1 if PID7_MAXN==5 | PID7_MAXN==3
replace extreme7=2 if PID7_MAXN==6 | PID7_MAXN==2
replace extreme7=3 if PID7_MAXN==7 | PID7_MAXN==1
reg new_belief_out_lean ideoS27_std extreme7 POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID7_MAXN==5 | PID7_MAXN==6 | PID7_MAXN==7 , cl(wustlid)
reg new_belief_out_lean ideoS27_std extreme7 POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID7_MAXN==1 | PID7_MAXN==2 | PID7_MAXN==3 , cl(wustlid)
reg new_belief_out_lean extreme_ideo extreme7 POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.16: Partisans' Views of Out-Party Members, Controlling for Sorting
gen SORTED=.
replace SORTED=1 if ideoS27_std<0 & PID3_MAXN==1
replace SORTED=0 if ideoS27_std<0 & PID3_MAXN==2
replace SORTED=1 if ideoS27_std>0 & PID3_MAXN==2
replace SORTED=0 if ideoS27_std>0 & PID3_MAXN==1
reg new_belief_out ideoS27_std i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out ideoS27_std i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out extreme_ideo i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.17: Partisans' Views of Out-Party Members, Using Symbolic Conservatism, Strong Partisanship, Sorting, and Operational Conservatism
reg new_belief_out ideoS27_std i.extreme c.IDEOL7SP i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
reg new_belief_out ideoS27_std i.extreme c.IDEOL7SP i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
reg new_belief_out extreme_ideo i.extreme SYM_IDEO_EXTREMITY i.SORTED POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.18: Partisans' Views of Out-Party Members, Ordered Logit
ologit new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
ologit new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
ologit new_belief_out extreme_ideo POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table B.19: Individual Questions
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==2 & seq==1
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==2 & seq==2
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==2 & seq==3
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==2 & seq==4
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==2 & seq==5

* Table B.20: Individual Questions
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==1 & seq==6
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==1 & seq==7
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==1 & seq==8
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==1 & seq==9
reg new_belief_out ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION if PID3_MAXN==1 & seq==10

* Table C.1: Predicting Correct Assessment of Partisan Perceptions
gen NEW_CORRECT=.
replace NEW_CORRECT=1 if seq==1 & PID3_MAXN==2 & new_belief_out==2
replace NEW_CORRECT=0 if seq==1 & PID3_MAXN==2 & new_belief_out!=2 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==2 & PID3_MAXN==2 & new_belief_out==3
replace NEW_CORRECT=0 if seq==2 & PID3_MAXN==2 & new_belief_out!=3 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==3 & PID3_MAXN==2 & new_belief_out==1
replace NEW_CORRECT=0 if seq==3 & PID3_MAXN==2 & new_belief_out!=1 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==4 & PID3_MAXN==2 & new_belief_out==1
replace NEW_CORRECT=0 if seq==4 & PID3_MAXN==2 & new_belief_out!=1 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==5 & PID3_MAXN==2 & new_belief_out==4
replace NEW_CORRECT=0 if seq==5 & PID3_MAXN==2 & new_belief_out!=4 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==6 & PID3_MAXN==1 & new_belief_out==3
replace NEW_CORRECT=0 if seq==6 & PID3_MAXN==1 & new_belief_out!=3 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==7 & PID3_MAXN==1 & new_belief_out==2
replace NEW_CORRECT=0 if seq==7 & PID3_MAXN==1 & new_belief_out!=2 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==8 & PID3_MAXN==1 & new_belief_out==2
replace NEW_CORRECT=0 if seq==8 & PID3_MAXN==1 & new_belief_out!=2 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==9 & PID3_MAXN==1 & new_belief_out==4
replace NEW_CORRECT=0 if seq==9 & PID3_MAXN==1 & new_belief_out!=4 & new_belief_out!=.
replace NEW_CORRECT=1 if seq==10 & PID3_MAXN==1 & new_belief_out==3
replace NEW_CORRECT=0 if seq==10 & PID3_MAXN==1 & new_belief_out!=3 & new_belief_out!=.
logit NEW_CORRECT ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
logit NEW_CORRECT ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
logit NEW_CORRECT extreme_ideo POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

* Table C.2: Ability to Determine Correct Percentage within Five Percent
gen NEW_NEW_CORRECT=.
replace NEW_NEW_CORRECT=1 if seq==1 & PID3_MAXN==2 & new_belief_out==2
replace NEW_NEW_CORRECT=1 if seq==1 & PID3_MAXN==2 & new_belief_out==3
replace NEW_NEW_CORRECT=0 if seq==1 & PID3_MAXN==2 & new_belief_out==1
replace NEW_NEW_CORRECT=0 if seq==1 & PID3_MAXN==2 & new_belief_out==4
replace NEW_NEW_CORRECT=0 if seq==1 & PID3_MAXN==2 & new_belief_out==5
replace NEW_NEW_CORRECT=1 if seq==2 & PID3_MAXN==2 & new_belief_out==3
replace NEW_NEW_CORRECT=1 if seq==2 & PID3_MAXN==2 & new_belief_out==2
replace NEW_NEW_CORRECT=0 if seq==2 & PID3_MAXN==2 & new_belief_out==1
replace NEW_NEW_CORRECT=0 if seq==2 & PID3_MAXN==2 & new_belief_out==4
replace NEW_NEW_CORRECT=0 if seq==2 & PID3_MAXN==2 & new_belief_out==5
replace NEW_NEW_CORRECT=1 if seq==3 & PID3_MAXN==2 & new_belief_out==1
replace NEW_NEW_CORRECT=0 if seq==3 & PID3_MAXN==2 & new_belief_out!=1 & new_belief_out!=.
replace NEW_NEW_CORRECT=1 if seq==4 & PID3_MAXN==2 & new_belief_out==1
replace NEW_NEW_CORRECT=1 if seq==4 & PID3_MAXN==2 & new_belief_out==2
replace NEW_NEW_CORRECT=0 if seq==4 & PID3_MAXN==2 & new_belief_out==3 
replace NEW_NEW_CORRECT=0 if seq==4 & PID3_MAXN==2 & new_belief_out==4
replace NEW_NEW_CORRECT=0 if seq==4 & PID3_MAXN==2 & new_belief_out==5
replace NEW_NEW_CORRECT=1 if seq==5 & PID3_MAXN==2 & new_belief_out==4
replace NEW_NEW_CORRECT=1 if seq==5 & PID3_MAXN==2 & new_belief_out==3
replace NEW_NEW_CORRECT=0 if seq==5 & PID3_MAXN==2 & new_belief_out==5
replace NEW_NEW_CORRECT=0 if seq==5 & PID3_MAXN==2 & new_belief_out==1
replace NEW_NEW_CORRECT=0 if seq==5 & PID3_MAXN==2 & new_belief_out==2
replace NEW_NEW_CORRECT=1 if seq==6 & PID3_MAXN==1 & new_belief_out==3
replace NEW_NEW_CORRECT=1 if seq==6 & PID3_MAXN==1 & new_belief_out==2
replace NEW_NEW_CORRECT=0 if seq==6 & PID3_MAXN==1 & new_belief_out==1
replace NEW_NEW_CORRECT=1 if seq==6 & PID3_MAXN==1 & new_belief_out==4
replace NEW_NEW_CORRECT=1 if seq==6 & PID3_MAXN==1 & new_belief_out==5 
replace NEW_NEW_CORRECT=1 if seq==7 & PID3_MAXN==1 & new_belief_out==2
replace NEW_NEW_CORRECT=0 if seq==7 & PID3_MAXN==1 & new_belief_out!=2 & new_belief_out!=.
replace NEW_NEW_CORRECT=1 if seq==8 & PID3_MAXN==1 & new_belief_out==2
replace NEW_NEW_CORRECT=0 if seq==8 & PID3_MAXN==1 & new_belief_out!=2 & new_belief_out!=.
replace NEW_NEW_CORRECT=1 if seq==9 & PID3_MAXN==1 & new_belief_out==4
replace NEW_NEW_CORRECT=0 if seq==9 & PID3_MAXN==1 & new_belief_out!=4 & new_belief_out!=.
replace NEW_NEW_CORRECT=1 if seq==10 & PID3_MAXN==1 & new_belief_out==3
replace NEW_NEW_CORRECT=0 if seq==10 & PID3_MAXN==1 & new_belief_out!=3 & new_belief_out!=.
logit NEW_NEW_CORRECT ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==2 , cl(wustlid)
logit NEW_NEW_CORRECT ideoS27_std POLKNOWLEDGE_MAX max_interest incomehhldsp educsp  i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq if PID3_MAXN==1 , cl(wustlid)
logit NEW_NEW_CORRECT extreme_ideo POLKNOWLEDGE_MAX max_interest incomehhldsp educsp i.WHITE i.FEMALE i.AGE_4 i.METRO i.REGION i.seq , cl(wustlid)

log close

***
*** END
***